home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Stacks / Hyper Media / MacWeek MediaStack / MacWeek MediaStack / card_24363.txt < prev    next >
Encoding:
Text File  |  1988-04-23  |  6.3 KB  |  274 lines
  1. -- card: 24363 from stack: in
  2. -- bmap block id: 15103
  3. -- flags: 0000
  4. -- background id: 10530
  5. -- name: classRateCard
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global classSize,classCount,adTotal
  9.   if classCount is empty then
  10.     put 1 into classSize
  11.     put 0 into classCount
  12.     send mouseUp to card button "Freq:"
  13.     put empty into card field subtotal
  14.   end if
  15.   pass openCard
  16. end openCard
  17.  
  18.  
  19. -- part 1 (field)
  20. -- low flags: 01
  21. -- high flags: 0000
  22. -- rect: left=359 top=68 right=256 bottom=512
  23. -- title width / last selected line: 0
  24. -- icon id / first selected line: 0 / 0
  25. -- text alignment: 0
  26. -- font id: 238
  27. -- text size: 12
  28. -- style flags: 0
  29. -- line height: 17
  30. -- part name: Size
  31.  
  32.  
  33. -- part 2 (field)
  34. -- low flags: 01
  35. -- high flags: 4000
  36. -- rect: left=362 top=257 right=276 bottom=494
  37. -- title width / last selected line: 0
  38. -- icon id / first selected line: 0 / 0
  39. -- text alignment: 0
  40. -- font id: 238
  41. -- text size: 12
  42. -- style flags: 0
  43. -- line height: 17
  44. -- part name: subTotal
  45.  
  46.  
  47. -- part 6 (button)
  48. -- low flags: 00
  49. -- high flags: 8000
  50. -- rect: left=312 top=255 right=274 bottom=362
  51. -- title width / last selected line: 0
  52. -- icon id / first selected line: 0 / 0
  53. -- text alignment: 0
  54. -- font id: 190
  55. -- text size: 12
  56. -- style flags: 0
  57. -- line height: 16
  58. -- part name: Calc…
  59. ----- HyperTalk script -----
  60. on mouseUp
  61.   global classSize,classCount
  62.   put the visible of bkgnd button id 39 into flag
  63.   set numberFormat to "0.00"
  64.   put item (classCount+1) of line (classSize+2) of card field classCost into runTot
  65.   if flag is "True" then put "Basic: " & runTot into msg
  66.   multiply runTot by word 1 of line 1 of card field "Size"
  67.   if flag is "True" then put " x column inches: " & runTot after msg
  68.   put "$ " & runTot into card field subtotal
  69. end mouseUp
  70.  
  71.  
  72.  
  73. -- part 7 (button)
  74. -- low flags: 00
  75. -- high flags: 8000
  76. -- rect: left=312 top=71 right=86 bottom=358
  77. -- title width / last selected line: 0
  78. -- icon id / first selected line: 0 / 0
  79. -- text alignment: 0
  80. -- font id: 190
  81. -- text size: 12
  82. -- style flags: 0
  83. -- line height: 16
  84. -- part name: Size:
  85. ----- HyperTalk script -----
  86. on mouseUp
  87.   global classSize
  88.   ask "Please enter the number of column inches:" with "2  (.5 inch increments acceptable)"
  89.   put word 1 of it into temp
  90.   repeat for the length of it
  91.     get last char of temp
  92.     if it is in "1234567890." then next repeat
  93.     else exit mouseUp
  94.   end repeat
  95.   if temp < 2 or it is empty then put 2 into temp
  96.   put temp && "inches" into line 1 of card field "Size"
  97.   set lockscreen to true
  98.   if temp < 5 then put 1 into classSize
  99.   if temp ‚â• 5 and temp < 11 then put 2 into classSize
  100.   if temp ‚â• 11 and temp < 21 then put 3 into classSize
  101.   if temp ‚â• 21 then put 4 into classSize
  102.   put item 1 of line (classSize+2) of card field classCost into line 2 of card field "Size"
  103.   repeat with i = 12 to 16
  104.     show card button id i
  105.   end repeat
  106.   if classSize = 3 then hide card button id 15
  107.   if classSize = 4 then
  108.     repeat with i = 14 to 16
  109.       hide card button id i
  110.     end repeat
  111.   else
  112.     hide card button id (11+classSize)
  113.   end if
  114.   set lockscreen to false
  115. end mouseUp
  116.  
  117.  
  118.  
  119.  
  120. -- part 9 (button)
  121. -- low flags: 00
  122. -- high flags: 8000
  123. -- rect: left=312 top=156 right=171 bottom=358
  124. -- title width / last selected line: 0
  125. -- icon id / first selected line: 0 / 0
  126. -- text alignment: 0
  127. -- font id: 190
  128. -- text size: 12
  129. -- style flags: 0
  130. -- line height: 16
  131. -- part name: Freq:
  132. ----- HyperTalk script -----
  133. on mouseUp
  134.   global classCount
  135.   add 1 to classCount
  136.   if classCount > 4 then put 1 into classCount
  137.   put item classCount of "1x,12x,24x,50x" into line 6 of card field "Size"
  138. end mouseUp
  139.  
  140.  
  141.  
  142. -- part 12 (button)
  143. -- low flags: 80
  144. -- high flags: 0001
  145. -- rect: left=201 top=80 right=123 bottom=221
  146. -- title width / last selected line: 0
  147. -- icon id / first selected line: 0 / 0
  148. -- text alignment: 1
  149. -- font id: 0
  150. -- text size: 12
  151. -- style flags: 0
  152. -- line height: 16
  153. -- part name: 2-4 cInch
  154.  
  155.  
  156. -- part 13 (button)
  157. -- low flags: 00
  158. -- high flags: 0001
  159. -- rect: left=227 top=80 right=187 bottom=247
  160. -- title width / last selected line: 0
  161. -- icon id / first selected line: 0 / 0
  162. -- text alignment: 1
  163. -- font id: 0
  164. -- text size: 12
  165. -- style flags: 0
  166. -- line height: 16
  167. -- part name: 5-10 cInch
  168.  
  169.  
  170. -- part 14 (button)
  171. -- low flags: 00
  172. -- high flags: 0001
  173. -- rect: left=254 top=80 right=195 bottom=274
  174. -- title width / last selected line: 0
  175. -- icon id / first selected line: 0 / 0
  176. -- text alignment: 1
  177. -- font id: 0
  178. -- text size: 12
  179. -- style flags: 0
  180. -- line height: 16
  181. -- part name: 11-20 cInch
  182.  
  183.  
  184. -- part 15 (button)
  185. -- low flags: 00
  186. -- high flags: 0001
  187. -- rect: left=280 top=80 right=180 bottom=300
  188. -- title width / last selected line: 0
  189. -- icon id / first selected line: 0 / 0
  190. -- text alignment: 1
  191. -- font id: 0
  192. -- text size: 12
  193. -- style flags: 0
  194. -- line height: 16
  195. -- part name: 11-20 cInch
  196.  
  197.  
  198. -- part 16 (button)
  199. -- low flags: 00
  200. -- high flags: 0001
  201. -- rect: left=280 top=182 right=199 bottom=300
  202. -- title width / last selected line: 0
  203. -- icon id / first selected line: 0 / 0
  204. -- text alignment: 1
  205. -- font id: 0
  206. -- text size: 12
  207. -- style flags: 0
  208. -- line height: 16
  209. -- part name: 11-20 cInch
  210.  
  211.  
  212. -- part 18 (field)
  213. -- low flags: 81
  214. -- high flags: 0007
  215. -- rect: left=289 top=73 right=218 bottom=507
  216. -- title width / last selected line: 0
  217. -- icon id / first selected line: 0 / 0
  218. -- text alignment: 0
  219. -- font id: 190
  220. -- text size: 12
  221. -- style flags: 0
  222. -- line height: 16
  223. -- part name: classCost
  224. ----- HyperTalk script -----
  225. on mouseUp
  226.   set the scroll of card field adSize to the scroll of me
  227. end mouseUp
  228.  
  229.  
  230. -- part contents for background part 22
  231. ----- text -----
  232. 43 of 50 cards ‚Ä¢ Advertising 5
  233.  
  234. -- part contents for background part 33
  235. ----- text -----
  236.  
  237.  
  238.  
  239.  
  240.  
  241.  
  242.  
  243.  
  244.  
  245.  
  246.  
  247. -- part contents for background part 40
  248. ----- text -----
  249. 43
  250.  
  251. -- part contents for background part 32
  252. ----- text -----
  253. Classified ratecard: February 1988
  254.  
  255. -- part contents for card part 1
  256. ----- text -----
  257. 2 inches
  258. rate: 2-4 column inches
  259. Column width: 2 5/16" 
  260. Minimum ad size: two inches
  261. Sold by half inch increments. 
  262. 1x
  263. Rates are per inch, per issue.
  264. Advertisers may send copy to be typeset by MacWEEK at no additional charge.
  265.  
  266.  
  267. -- part contents for card part 18
  268. ----- text -----
  269. Line 1:Ad size,frequency
  270. ‚Ä¢¬†‚Ä¢¬†‚Ä¢¬†‚Ä¢ ‚Ä¢¬†‚Ä¢¬†‚Ä¢¬†‚Ä¢¬†‚Ä¢¬†‚Ä¢¬†‚Ä¢¬†‚Ä¢ ‚Ä¢¬†‚Ä¢¬†‚Ä¢¬†‚Ä¢¬†‚Ä¢¬†‚Ä¢¬†‚Ä¢¬†
  271. rate: 2-4 column inches,70,63,60,57
  272. rate: 5-10 column inches,67,60,57,55
  273. rate: 11-20 column inches,63,57,54,52
  274. rate: 21 inches or more,60,54,51,49